home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / yacc / flexyacc / aflex.lha / aflex / src / alsys / file_managerS.a < prev    next >
Text File  |  1991-07-22  |  2KB  |  47 lines
  1. ---------------------------------
  2. -- file_managerS.a
  3. ---------------------------------
  4. -- Copyright (c) 1990 Regents of the University of California.
  5. -- All rights reserved.
  6. --
  7. -- This software was developed by John Self of the Arcadia project
  8. -- at the University of California, Irvine.
  9. --
  10. -- Redistribution and use in source and binary forms are permitted
  11. -- provided that the above copyright notice and this paragraph are
  12. -- duplicated in all such forms and that any documentation,
  13. -- advertising materials, and other materials related to such
  14. -- distribution and use acknowledge that the software was developed
  15. -- by the University of California, Irvine.  The name of the
  16. -- University may not be used to endorse or promote products derived
  17. -- from this software without specific prior written permission.
  18. -- THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
  19. -- IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
  20. -- WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  21.  
  22. -- TITLE external_file_manager
  23. -- AUTHOR: John Self (UCI)
  24. -- DESCRIPTION opens external files for other functions
  25. -- NOTES This package opens external files, and thus may be system dependent
  26. --       because of limitations on file names.
  27. --       This version is for the VADS 5.5 Ada development system.
  28. -- $Header: /co/ua/self/arcadia/aflex/ada/src/RCS/file_managerS.a,v 1.4 90/01/12 15:20:00 self Exp Locker: self $ 
  29.  
  30. -- History
  31. -- 14-Jun-1991        Rolf EBERT    
  32. --    added the function Standard_Error.
  33.  
  34. with TEXT_IO; use TEXT_IO; 
  35. package EXTERNAL_FILE_MANAGER is 
  36.  
  37.   function Standard_Error return File_Type;
  38.   -- added as proposed by 'PORTING'
  39.   -- should always be defined here (!), thus, changes were only in the body
  40.  
  41.   procedure GET_IO_FILE(F : in out FILE_TYPE); 
  42.   procedure GET_DFA_FILE(F : in out FILE_TYPE); 
  43.   procedure GET_SCANNER_FILE(F : in out FILE_TYPE); 
  44.   procedure GET_BACKTRACK_FILE(F : in out FILE_TYPE); 
  45.   procedure INITIALIZE_FILES; 
  46. end EXTERNAL_FILE_MANAGER; 
  47.